home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Toolbox
/
Visual Basic Toolbox (P.I.E.)(1996).ISO
/
hlp_auth
/
mvhelp
/
about.frm
next >
Wrap
Text File
|
1994-01-10
|
3KB
|
113 lines
VERSION 2.00
Begin Form frmAbout
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Double
Caption = "About"
ClientHeight = 2595
ClientLeft = 1245
ClientTop = 1605
ClientWidth = 5535
ControlBox = 0 'False
FillColor = &H00C0C0C0&
ForeColor = &H00C0C0C0&
Height = 3060
Left = 1155
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2595
ScaleWidth = 5535
Top = 1230
Width = 5715
Begin CommandButton Command1
Caption = "OK"
Height = 375
Left = 2520
TabIndex = 1
Top = 2040
Width = 855
End
Begin PictureBox Picture1
AutoSize = -1 'True
Height = 510
Left = 240
Picture = ABOUT.FRX:0000
ScaleHeight = 480
ScaleWidth = 480
TabIndex = 0
Top = 240
Width = 510
End
Begin Line Line1
BorderWidth = 2
X1 = 360
X2 = 5160
Y1 = 1440
Y2 = 1440
End
Begin Label Label3
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Copyright ⌐ 1994 Robert W. McGregor. Use Freely."
Height = 255
Left = 360
TabIndex = 5
Top = 1560
Width = 4815
End
Begin Label Label2
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Demo of Context Sensitive Help using Viewer"
Height = 255
Left = 360
TabIndex = 4
Top = 1080
Width = 4815
End
Begin Label Label1
BackStyle = 0 'Transparent
Caption = "Context Sensitive Help With Multimedia Viewer"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 855
Index = 0
Left = 960
TabIndex = 2
Top = 135
Width = 4335
End
Begin Label Label1
BackStyle = 0 'Transparent
Caption = "Context Sensitive Help With Multimedia Viewer"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00808080&
Height = 855
Index = 1
Left = 1010
TabIndex = 3
Top = 160
Width = 4335
End
End
Option Explicit
Sub Command1_Click ()
Unload Me
End Sub
Sub Form_Load ()
Move screen.Height \ 2 - Height \ 2, screen.Width \ 2 - Width \ 2
End Sub